using TSne


function tsne_trans(X::AbstractMatrix{T}, dims::I) where {T<:Real, I<:Integer}
    tsne_rescale(A; dims=1) = (A .- mean(A, dims=dims)) ./ max.(std(A, dims=dims), eps())
    tsne(tsne_rescale(X'), dims, 50, 1000, 20.0)'
end